(:*******************************************************:)
(: Test: K-DateSubtractDTD-1                             :)
(: Written by: Frans Englich                             :)
(: Date: 2007-11-22T11:31:21+01:00                       :)
(: Purpose: Simple testing involving operator '-' between xs:date and xs:dayTimeDuration. :)
(:*******************************************************:)
xs:date("1999-08-12") - xs:dayTimeDuration("P23DT09H32M59S")
					 eq xs:date("1999-07-19")